home *** CD-ROM | disk | FTP | other *** search
/ Best of www.BestZips.com (Collector's Edition) / Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO / prgtools / tn2.zip / GOLDEN.T < prev    next >
Text File  |  1996-11-15  |  596b  |  35 lines
  1. %
  2. % "golden.t" computes the golden ratio by iteration using the
  3. % last two items of a fibonacci sequence
  4. %
  5. %   Sample program for the T Interpreter by:
  6. %
  7. %   Stephen R. Schmitt
  8. %   962 Depot Road
  9. %   Boxborough, MA 01719
  10. %
  11.  
  12. var fib0, fib1, fib2 : int
  13. var golden, old_gold : real
  14.  
  15. program
  16.  
  17.     fib0 := 0
  18.     fib1 := 1
  19.     old_gold := 0
  20.  
  21.     loop
  22.  
  23.         fib2 := fib1 + fib0
  24.         fib0 := fib1
  25.         fib1 := fib2
  26.         golden := fib1 / fib0
  27.  
  28.         exit when old_gold = golden
  29.  
  30.         old_gold := golden
  31.         put golden:16:12
  32.  
  33.     end loop
  34.  
  35. end program